home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 73 / 64er_Magazin_Sonderheft_73_19xx_Markt__Technik_de_Side_B.d64 / omnibus gmbh (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  4KB  |  120 lines
  1. 10 poke53280,0:poke53281,0:re$=chr$(13):printchr$(142)chr$(8)
  2. 20 ifq=0thenq=1:print"[147]":a$="omni.pic":gosub3000:gosub6000:loada$,8,1
  3. 30 ifq=1thenq=2:a$="omni.char":gosub3000gosub6000:loada$,8,1
  4. 50 gosub2000:gosub8060:pokev+21,0:gosub1000:gosub5000
  5. 60 poke53272,48:poke56576,0:poke648,204:gosub7000:a$="omni.main":print"[147]":gosub3000
  6. 70 close1:close4:print"[144]load"chr$(34)a$chr$(34)",8"chr$(141)"run[145][145][145][145][145][145][145][145]"
  7. 80 poke631,13:poke632,13:poke198,2:end
  8. 1000 poke56578,peek(56578)or3:poke56576,(peek(56576)and252)or2
  9. 1020 poke53272,peek(53272)or8:poke53265,peek(53265)or32:poke53270,peek(53270)or16:sys34592
  10. 1070 geta$:onabs(a$="")goto1070:poke53265,peek(53265)and223:poke53270,peek(53270)and239
  11. 1090 poke53272,21:poke56578,63:poke56576,151:return
  12. 2000 print"[147]":v=53248:pokev+21,4:poke2042,13:forn=0to62:readq:poke832+n,q:nextn
  13. 2010 pokev+23,4:pokev+29,4:pokev+41,6
  14. 2020 pokev+4,150:pokev+5,100:return
  15. 2030 data 0,0,0
  16. 2040 data 0,0,0
  17. 2050 data 0,24,0
  18. 2060 data 0,126,0
  19. 2070 data 1,195,128
  20. 2080 data 7,0,224
  21. 2090 data 28,0,56
  22. 2100 data 112,0,14
  23. 2110 data 192,0,3
  24. 2120 data 255,190,231
  25. 2130 data 255,255,102
  26. 2140 data 96,99,102
  27. 2150 data 100,96,102
  28. 2160 data 124,126,126
  29. 2170 data 124,63,126
  30. 2180 data 100,3,102
  31. 2190 data 96,99,102
  32. 2200 data 96,127,102
  33. 2210 data 240,62,231
  34. 2220 data 0,0,0
  35. 2230 data 255,255,255
  36. 3000 print""tab(9)"[158][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]":fora=1to5
  37. 3010 printtab(9)"[221]                     [221]":nexta:printtab(9)"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  38. 3020 print"[145][145][145][145][145]"tab(12)"now loading:":print""tab(15)a$:return
  39. 3900 end
  40. 5000 print"[147]":a$="[175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]":poke53280,0:poke53281,0
  41. 5010 printtab(8)"[158][181][159]  [146][158]                    [159] [158][182][146]"
  42. 5020 printtab(8)"[158][194]"spc(23)"[194]"
  43. 5030 printtab(7)"[169][194] "left$(a$,21)" [194][223][146]"
  44. 5040 printtab(6)"[158]  [203] [204][175]die[175][175]omnibus[175]gmbh[175][186][158] [202] [146]"
  45. 5050 printtab(7)"[158] "left$(a$,12)" "left$(a$,12)" [146]"
  46. 5060 printtab(7)" [152][181]          [182][158] [152][181]          [182][158] [146]"
  47. 5070 printtab(7)"[160][152][181]   [155]  [152]     [182][158][160][152][181]     [155]  [152]   [182][158][160][146]"
  48. 5080 printtab(7)"[160][152][181] [155]   [152]     [170][182][158][160][152][181][180]     [155]   [152] [182][158][160][146]"
  49. 5090 printtab(7)"[160][152][181][155]  [152]       [186][182][158][160][152][181][204]       [155]  [152][182][158][160][146]"
  50. 5100 printtab(7)"[160][152][181]        [206][170][182][158][160][152][181][180][205]        [182][158][160][146]"
  51. 5110 printtab(7)"[160][152][181]       [206] [170][182][158] [152][181][180] [205]       [182][158] [146]"
  52. 5120 printtab(7)"[160][152][181]     [192][146][185][192][192][209][182][158] [152][181][209][192][192][146][185][192]     [182][158] [146]"
  53. 5130 printtab(7)"[160][183][183][183][183][183][183][183][183][183][183][183][183] [183][183][183][183][183][183][183][183][183][183][183][183][160][146]"
  54. 5140 printtab(7)"[175]                         [175][146]"
  55. 5150 printtab(7)"[129][186][158] [175][175][175] [192][192][192] [207][183][183][183][183][183][208][158] [192][192][192] [175][175][175] [129][204][146][158]"
  56. 5160 printtab(7)"  [204][175][186][158]  [192][192] [180]m.a.n[170][158] [192][192]  [204][175][186][158]  [146]"
  57. 5170 printtab(7)"      [192][192][192] [204][175][175][175][175][175][186][158] [192][192][192]      [146]"
  58. 5180 printtab(7)""left$(a$,27)"[146]"
  59. 5190 printtab(6)"[181]          ha-v 99          [146][161][158]"
  60. 5200 printtab(7)"[183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][146]"
  61. 5210 printtab(9)"[170][158] [170][158]     [151][183][162][162][162][162][146][183][158]      [180][158] [180][158]"
  62. 5220 printtab(9)"[170][175][186][158]"spc(17)"[204][175][180][158]"
  63. 5230 print"[151]        [152]  designed by c.franzke  [151]      [146]"
  64. 5240 print""tab(12)"[211][154]-lich willkommen":poke198,0:wait198,1
  65. 5250 print"[145]"tab(12)"                 ":fora=1to25:readb:poke831+a,b:nexta
  66. 5260 poke838,216:poke841,200:sys832:return
  67. 5270 data 160,0,162,0,189,0,4,157,0,64,202,208,247,238,70,3,238,73,3,200,192,4
  68. 5280 data 208,234,96
  69. 6000 close4:close1:open4,8,4,a$+",prg,r":open1,8,15:input#1,a,b$,c,d:ifa<>0thengosub6500:goto6000
  70. 6010 return
  71. 6500 print"[158]"tab(12)"            ":printtab(11)"[145] fehler auf disk: "
  72. 6510 printtab(12)"[158]"b$:printtab(11)"spieldisk einlegen":poke198,0:wait198,1:gosub3000:return
  73. 7000 ll$="                                       ":d1$=""
  74. 7010 gosub7300:printtab(6)"[213]";:fora=1to27:print"[192]";:nexta:print"[201]"
  75. 7020 printtab(6)"[194]"spc(27)"[194]":printtab(6)"[221]    altes spiel laden      [221]"
  76. 7030 printtab(6)"[194]"spc(10)"(j/n) ?"spc(10)"[221]":printtab(6)"[194]"spc(27)"[194]"
  77. 7040 printtab(6)"[202]";:fora=1to27:print"[192]";:nexta:print"[203]"
  78. 7050 geta$:on-(a$<>"j"anda$<>"n")goto7050:ifa$="j"thenpoke870,0:return
  79. 7060 printd1$tab(11)"wieviele mitspieler":printtab(17)"(1-4) ?"
  80. 7070 geta$:ms=val(a$):onabs(a$=""orms<1orms>4)goto7070:printleft$(d1$,9)
  81. 7080 printtab(5)"[213]";:fora=1to29:print"[192]";:nexta:print"[201]"
  82. 7090 printtab(5)"[194] [158] namenseintragung:  [146]        [194]":printtab(5)"[221]"left$(ll$,29)"[221]"
  83. 7100 printtab(5)"[194] name von spieler   [154] max.10 [146] [194]"
  84. 7110 printtab(5)"[194] [158]==> [164][164][164][164][164][164][164][164][164][164]              [194]"
  85. 7120 printtab(5)"[202]";:fora=1to29:print"[192]";:nexta:print"[203]":na$="":kc=65:gc=90:za=9
  86. 7130 fora=1toms:na$="":printd1$""tab(23)a:printtab(11);:gosub7400
  87. 7140 na$(a)=left$(a$+ll$,10):nexta:poke870,ms:fora=1toms:forb=1to10
  88. 7150 c=asc(mid$(na$(a),b,1)):poke860+10*a+b,c:nextb,a:return
  89. 7300 print"[147][154]";:fora=1to39:print"[192]";:nexta:print"          o m n i b u s   g m b h       "
  90. 7310 print"[158]      written by christian franzke     "
  91. 7320 print"[146][154]";:fora=1to39:print"[192]";:nexta:print:return
  92. 7400 printleft$("[164][164][164][164][164][164][164][164][164][164][164][164][164][164]",za+1)left$("[157][157][157][157][157][157][157][157][157][157][157][157][157][157]",za+1);
  93. 7410 a$="":ms$="":wl=0:print" [146][157]";
  94. 7420 getms$:ifms$=""goto7420
  95. 7430 ifms$=re$andwl=0goto7420
  96. 7440 ifms$=re$goto7510
  97. 7450 ifms$=chr$(20)thengosub7520
  98. 7460 ifwl>zagoto7420
  99. 7470 ifms$=chr$(32)goto7490
  100. 7480 v=asc(ms$):ifv<kcorv>gcgoto7420
  101. 7490 printms$" [146][157]";:wl=wl+1:a$=a$+ms$
  102. 7500 goto7420
  103. 7510 printleft$(ll$,za-wl+1):return
  104. 7520 if(wl-1)<0thenreturn
  105. 7530 wl=wl-1:print"[157] [146][164][157][157]";:ifwl=zathenprint"  [157][157]";
  106. 7540 a$=left$(a$,(len(a$)-1)):return
  107. 8000 print"[144]":return
  108. 8010 print"":return
  109. 8020 print"":return
  110. 8030 print"":return
  111. 8040 print"[158]":return
  112. 8050 print"":return
  113. 8060 a=0:b=1
  114. 8070 a=a+b:onagosub8000,8010,8020,8030,8040,8050
  115. 8080 gosub8120:fort=1to100:nextt
  116. 8090 ifa=6thenb=-1
  117. 8100 ifa=0thenfort=1to200:nextt:return
  118. 8110 goto8070
  119. 8120 print""tab(8)"franzkes software house":printtab(16)"presents:":return
  120.